﻿Module Module1
  Sub Main()

    For i As Integer = 1 To 3
      My.Computer.Audio.PlaySystemSound( _
          Media.SystemSounds.Asterisk)
      System.Threading.Thread.Sleep(500)
    Next

    My.Computer.Audio.Play("" & _
        "C:\WINDOWS\Media\Tada.wav", _
        AudioPlayMode.Background)
    Console.ReadLine()

  End Sub
End Module
